home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 1901_000 / disk1930 / timdat.for < prev    next >
Encoding:
Text File  |  1988-09-22  |  1.3 KB  |  59 lines
  1.       PROGRAM TIMDAT
  2. C
  3. C     TO DISPLAY TIME AND DATE
  4. C     OLYMPIC SOFTWARE, 9/22/88
  5. C
  6.       EXTERNAL LDOSIF
  7.       INTEGER*2 IAR(8),IP,ICX,IEU
  8.       CHARACTER*10 A,SPS
  9.       CHARACTER*2 A1,A2,A3
  10.       CHARACTER*1 AA(10)
  11.       EQUIVALENCE (A,AA(1))
  12.       EQUIVALENCE (A1,AA(2)),(A2,AA(5)),(A3,AA(8))
  13.       DATA SPS /'          '/
  14. C       IF IEU=1, THEN TIME IS WRITEN IN THE EUROPEAN STANDARD
  15.       DATA IEU /0/
  16. C
  17.         A=SPS
  18.         IAR(1)=44
  19.         CALL LDOSIF(IAR)
  20.             IF(IAR(5).GE.12)THEN
  21.               IAR(5)=IAR(5)-12
  22.               IP=1
  23.             ENDIF
  24.             IF(IAR(5).EQ.0)IAR(5)=12           
  25.           WRITE(A1,10)IAR(5)
  26.           WRITE(A2,10)IAR(6)
  27.  10       FORMAT(I2)
  28.           IF(IP.EQ.1)THEN
  29.             A3='PM'
  30.           ELSE
  31.             A3='AM'
  32.           ENDIF
  33.           AA(4)=':'
  34.           WRITE(*,50)A
  35.  50       FORMAT('  TIME: ',A)
  36. C
  37.         A=SPS
  38.         IAR(1)=42
  39.         CALL LDOSIF(IAR)
  40.           ICX=IAR(5)*256+IAR(6)
  41.           ICX=ICX-1900
  42.           IF(IEU.EQ.0)THEN
  43.             WRITE(A1,10)IAR(7)
  44.             WRITE(A2,10)IAR(8)
  45.           ELSE
  46.             WRITE(A2,10)IAR(7)
  47.             WRITE(A1,10)IAR(8)
  48.           ENDIF
  49.           WRITE(A3,10)ICX
  50.           AA(4)='/'
  51.           AA(7)='/'
  52.           WRITE(*,51)A
  53.  51       FORMAT('  DATE: ',A)
  54. C
  55.       STOP
  56.       END
  57.  
  58.  
  59.